
--Aux
--bebidasVendidas :: Local -> [(Bebida,Int)]
--bebidasVendidas (L bs hs es) = []
--bebidasVendidas (Sancion empleado energia local) = bebidasVendidas local
--bebidasVendidas (VenderPedido pedido local) = (sacarRepetidos (listaStock (bebidasDelPedido pedido (combosP pedido))) (bebidasDelPedido pedido (combosP pedido))) ++ bebidasVendidas local 



--Aux2
--sanguchesVendidos :: Local -> [(Hamburguesa,Int)]
--sanguchesVendidos (L bs hs es) = []
--sanguchesVendidos (Sancion empleado energia local) = sanguchesVendidos local
--sanguchesVendidos (VenderPedido pedido local) = (sacarRepetidos (listaStock (sanguchesDelPedido pedido (combosP pedido))) (sanguchesDelPedido pedido (combosP pedido))) ++ sanguchesVendidos local 


